home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 4 / MacMania 4.toast / / Demo's / Igor Demo Pro / 3 PutContentsIn Igor Pro Folder / Technical Notes / Igor Tech Notes / TN020 Peak Measurement / InitPeakMacros next >
Text File  |  1990-10-16  |  3KB  |  131 lines
  1. Macro InitPeakMacros()
  2.     Silent 1;PauseUpdate
  3.  
  4.     String/G m_mp,m_so
  5.     String/G m_b,m_bi,m_ba,m_bd,m_bf,m_bs
  6.     String/G m_a,m_ai,m_aa,m_ala
  7.     String/G m_ii,m_ia,m_id,m_iap
  8.     String/G m_f,m_ff,m_fo,m_fr,m_fs,m_fh
  9.     String/G m_s
  10.     String/G m_cug
  11.     String/G m_cw
  12.  
  13.     m_mp="Make Peaks…"
  14.     m_so="Initialize Most Everything…"
  15.  
  16.     m_b="Baseline"
  17.         m_bi="Init Baseline Fit..."
  18.         m_ba="Add Region To Fit/1"
  19.         m_bd="Delete Region From Fit/2"
  20.         m_bf="Fit Baseline At Regions…"
  21.         m_bs="Subtract Baseline..."
  22.  
  23.     m_a="Area"
  24.         m_ai="Init Area Between Cursors…"
  25.         m_aa="Area Between Cursors/3"
  26.         m_ala="List Areas"
  27.  
  28.     m_f="Fit Peaks"
  29.         m_ii="Init Identify Peaks…"
  30.         m_ia="Identify Peak With Cursors/4"
  31.         m_id="Delete Pks Between Cursors/5"
  32.         m_iap="Auto Identify Peaks…/6"
  33.  
  34.         m_ff="Fit Peaks And Baseline…/7"
  35.     
  36.         m_fr="Report…"
  37.         m_fs="Show Fitted Peaks…"
  38.         m_fh="Hide Fitted Peaks"
  39.     m_s="Show Fit Residual…"
  40.     m_cug="Show Only Data And Base/0"
  41.     m_cw="Color Waves"
  42.  
  43.     String/G g_w,g_wx,g_b,g_keep
  44.     String/G p_w,p_wx,p_b,p_wd,p_wxd,p_bx
  45.     p_w = "peak data wave, including baseline"
  46.     p_wd = "data wave"
  47.     p_wx = "X coordinates for peak data wave"
  48.     p_wxd = "X coordinates for data wave"
  49.     p_b = "baseline"
  50.     p_bx="approximate peak x width at 50%"
  51.  
  52.     Variable/G g_bx
  53.  
  54.     String/G p_aipw
  55.     p_aipw="ADD to existing peak list;OVERWRITE peak list"
  56.  
  57.     Variable/G mp_kind,mp_pnts=8,mp_noise,mp_log,mp_minx,mp_maxx
  58.     String/G p_pts
  59.     p_pts="(2;(4;(8;16;32;64;128;256;512;1024;2048;4096;8192;16384"
  60.  
  61.  
  62.     String/G fbar_wr,fbar_fit,fbar_wobase
  63.  
  64.     Variable/G mpr_pol
  65.  
  66.     Variable/G mir_what,mir_anno
  67.     String/G mir_pwh
  68.     mir_pwh="counts;integrate rectangular;integrate trapezoidal"
  69.  
  70.  
  71.     variable/G fp_pol=1,fp_minamp
  72.     
  73.     Variable/G tfp_pol,tfp_extent,tfp_mw,tfp_what
  74.     
  75.     String/G fpks_pktype,fpks_weights
  76.     String/G S_funcs
  77.     String s
  78.     s    =" line   2;"
  79.     s += " poly  3 ;"
  80.     s += " poly  4 ;"
  81.     s += " poly  5 ;"
  82.     s += " sin    4;"
  83.     s += " dblexp 4;"
  84.     s += " exp    3;"
  85.     s += " lor    4;"
  86.     s += " gauss  4;"
  87.  
  88.     S_funcs=s
  89.  
  90.     Variable/G fpks_extent
  91.  
  92.     String/G ar_wfit,ar_ow
  93.     Variable/G ar_anno,ar_ex
  94.  
  95.     Variable/G afp_anno
  96.     
  97.     String/G pfr_title
  98.     Variable/G pfr_sort,pfr_order,pfr_bi
  99.         
  100.     String/G S_Wave,new,none,calc
  101.     new="_New_;"
  102.     none="_None_;"
  103.     calc="_Calculated_;"
  104.  
  105.     String/G bcw,bdcw,breg,pcw,pdcw
  106.     
  107.     bcw="W_BaseCoefs"
  108.     bdcw="W_BasePM"
  109.     breg="W_BaseRegion"
  110.     pcw="W_PeakFitCoefs"
  111.     pdcw="W_PeakPM"
  112.  
  113.     String/G areg,areaNB,areaX1,areaX2
  114.     
  115.     areg="W_AreaRegion"
  116.     areaNB="W_AreaNoBase"
  117.     areaX1="W_AreaX1";areaX2="W_AreaX2"    
  118.     String/G ampsY,ctrsX,widsX,edgsP,ctrsP
  119.  
  120.     ampsY="W_EstAmpsY"
  121.     ctrsX="W_EstCentersX"
  122.     widsX="W_EstWidthsX"
  123.     edgsP="W_EstEdgesP"
  124.     ctrsP="W_EstCentersP"
  125.  
  126.     | Other global variables and waves
  127.     Make/N=5 W_PM
  128.     Variable/G V_tol=1e-10,V_peakX,V_peakP,V_start,V_theEnd,V_startX,V_theEndX
  129. End
  130.  
  131.